home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGBLER / PC37030.LZH / PC37030.ZIP / DEMOAST1.ALC < prev    next >
Text File  |  1987-05-18  |  677b  |  33 lines
  1.     TITLE 'DEMOAST1 - READ AND PRINT'
  2. *
  3. * AUTHOR.  DON HIGGINS.
  4. * DATE.    12/30/82.
  5. * REMARKS. PC/370 DEMO TO ILLUSTRATE ASSIST DUMP AND LOG OUTPUT.
  6. *
  7. * THIS PROGRAM READS CARDS FROM DEMOAST1.DAT AND LISTS THEM ALONG
  8. * WITH SELECTED DUMPS OF REGISTERS AND STORAGE ON DEMOAST1.LOG.
  9. *
  10. * MAINTENANCE
  11. *
  12. * 05/18/87 CONVERTED TO R2.0 XFILI/XFILO PATH/FILENAME FORMAT
  13. *
  14. *
  15. DEMOAST1  CSECT
  16.     USING *,R15
  17.     XFILI =C'DEMOAST1.DAT'
  18.     XFILO =C'DEMOAST1.LOG'
  19.     XDUMP
  20. LOOP     EQU   *
  21.     XREAD CARD
  22.     BNZ   EOF
  23.     XPRNT CARD,80
  24.     B     LOOP
  25. EOF      EQU   *
  26.     XDUMP CARD,80
  27.     XDUMP CARD
  28.     SVC   EXIT
  29. R15      EQU   15
  30. EXIT     EQU   0
  31. CARD     DC    CL80' '
  32.     END   DEMOAST1
  33.